home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / drdobbs / 1987 / 12 / naro / sieve.c < prev    next >
Text File  |  1987-12-21  |  4KB  |  39 lines
  1. /*                                                                                           
  2.    Sieve Benchmark - ROM Version                                                             
  3.                                                                                              
  4.    Copyright (C) Recycled Software 1987.  All rights reserved.                               
  5.                                                                                              
  6.    Executes 100 Iterations of the sieve algorithm for microprocessor                         
  7.    benchmarking purposes.                                                                    
  8.                                                                                              
  9. */                                                                                           
  10.                                                                                              
  11.                                                                                              
  12. #define  TRUE     1                                                                          
  13. #define  FALSE    0                                                                          
  14. #define  SIZE     8190                                                                       
  15.                                                                                              
  16. char  flags[SIZE + 1] ;                                                                      
  17.                                                                                              
  18. main()                                                                                       
  19. {                                                                                            
  20.    int   i, prime, k, count, iter ;                                                          
  21.                                                                                              
  22.    for (iter = 1; iter <= 100; iter++)   {                                                   
  23.       count = 0 ;                                                                            
  24.       for (i = 0; i <= SIZE; i++)                                                            
  25.          flags[i] = TRUE ;                                                                   
  26.                                                                                              
  27.       for (i = 0; i <= SIZE; i++)   {                                                        
  28.          if (flags[i])   {                                                                   
  29.             prime = i + i + 3 ;                                                              
  30.             for (k = i + prime; k <= SIZE; k += prime)                                       
  31.                flags[k] = FALSE ;                                                            
  32.                                                                                              
  33.             count++ ;                                                                        
  34.          }                                                                                   
  35.       }                                                                                      
  36.    }                                                                                         
  37. }                                                                                            
  38.                                                                                              
  39.